home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / Simple DB / PG PRO.GLBL < prev    next >
Text File  |  1993-10-23  |  6KB  |  131 lines
  1. '===============================================================================
  2. '= Copyright 1992 Staz™ Software, Inc.   =  Portions © 1992 Zedcor™, Inc.      =
  3. '=       All rights reserved             =        All rights reserved          =
  4. '=         "PG PRO.GLBL"                 =   from "Runtime.GLBL"  by Andy G.   =
  5. '===============================================================================
  6. '_______________________________________________________________________________
  7. '››››››››››››››››››››››››››››››››››› EQUATES ›››››››››››››››››››››››››››››››››››
  8. '———————————————————————————————————————————————————————————————————————————————
  9. '-------------------------------------------------------------------------------
  10. :'PG:PRO CONSTANTS
  11. '-------------------------------------------------------------------------------
  12. _baseID                 = 4000'starting ID for resources
  13. _tempID                 = 3500'ID for temporary resources
  14.  
  15. _typeFSS                = _"fss "
  16. _keyDirectObject        = _"----"
  17. _typeAEList             = _"list"
  18. _typeAppleEvent         = _"aevt"
  19. _kAEOpenApplication     = _"oapp"
  20. _kAEOpenDocuments       = _"odoc"
  21. _kAEPrintDocuments      = _"pdoc"
  22. _kAEQuitApplication     = _"quit"
  23. '-------------------------------------------------------------------------------
  24. :'PG:PRO MENUS
  25. '-------------------------------------------------------------------------------
  26. _justifyItem            = 12
  27. '-------------------------------------------------------------------------------
  28. :'PG:PRO USER DEFINED CONSTANTS
  29. '-------------------------------------------------------------------------------
  30. _pictCursor             = _arrowCursor'cursor used over pict fields
  31. _fingerCursor           = 4000'hand w/pointer finger
  32. _buttonCursor           = _fingerCursor'cursor used over buttons
  33. _ignoreSnglClk          = _false'report single clicks in lists
  34. _ignoreCmndPeriod       = _false'if true, don't break on "."
  35. _TEWndInset             = 4'pixel inset for text editors
  36. _closeItemSkipsDoids    = _false'Cmnd-W closes doc - not doid?
  37. '_______________________________________________________________________________
  38. '››››››››››››››››››››››››››››››››››› GLOBALS ›››››››››››››››››››››››››››››››››››
  39. '———————————————————————————————————————————————————————————————————————————————
  40. '-------------------------------------------------------------------------------
  41. :'RUNTIME
  42. '-------------------------------------------------------------------------------
  43. DIM gAction%'Event Action
  44. DIM gSubAction%'Sub Action Number
  45. DIM gWhichDialog%'result of DIALOG(0)
  46. DIM gDialogValue%'result of DIALOG(Act)
  47. DIM gWhichClass%'Current Window Class
  48. DIM gActWindow%;0,gActiveWnd'Current Active window number
  49. DIM gOutWindow%;0,gOutputWnd'Current Output window number
  50.  
  51. DIM gMessage1%;0,gWhichMenu%;0,gWhichButton%;0,gIsStationery;0
  52. DIM gWhichField%;0,gWhichWindow%;0,gWhichRefCon&;0,gMouseY%
  53.  
  54. DIM gMessage2%;0,gWhichItem%;0,gButtonValue%;0,gMouseX%
  55.  
  56. DIM gEventPtr&'Pointer to Event Record
  57. DIM gEventRec;0,gWhat%,gMessage&,gWhen&,gWhereY%,gWhereX%,gModifiers%
  58.  
  59. DIM gClickStatus;0,gFieldWas;0,gOpenVol;0,gFileVol
  60. DIM gControlHndl&;0,gFileType&
  61. DIM gWhichObjElem%
  62.  
  63. DIM gItemName$;0,gControlTitle$;0,gWindowTitle$
  64. DIM 32 gFileName$;0,32 gOpenName$,50 gKey$,gOutputWas
  65.  
  66. DIM gScreenDepth%
  67. DIM gScreenRect;0,gScrnT%,gScrnL%,gScrnB%,gScrnR%'Main Monitor Size in Pixels
  68. '-------------------------------------------------------------------------------
  69. :'OBJECT
  70. '-------------------------------------------------------------------------------
  71. '
  72. '                      User item designations     "*" set by PG PRO
  73. '                                                 "-" standard user entries
  74. '                                                 "+" free for user items
  75. DIM RECORD gObject
  76. DIM gObjSel'* neg if sel'd/not 1 if group
  77. DIM gObjKind'* see object constants above
  78. DIM gObjRef;0,gObjPenSz'* btn,fld ref num pr pensize
  79. DIM gObjSelT,gObjSelL,gObjSelB,gObjSelR'* selection rect
  80. DIM gObjT,gObjL,gObjB,gObjR'* object's rect
  81. DIM gObjZType'* button/field type
  82. DIM gObjUserTp&;0'- user 'TYPE' designator
  83. DIM gObjLFont;0 ,gObjZJust'  LMCD font# or field just
  84. DIM gObjCtrlVal;0,gObjAutoReSz;0,gObjFillPat'  button value or fill pat
  85. DIM gObjUserHndl&;0'- user handle storage
  86. DIM gObjLSize;0 ,gObjMin;0    ,gObjLinePat'  LM size,scrl min,line pat
  87. DIM gObjMax;0   ,gObjFRed'  scroll btn max,fore red
  88. DIM gObjUser1;0 ,gObjPgUpDn;0 ,gObjFGreen'+ scroll page,fore green
  89. DIM gObjUser2;0 ,gObjCon;0    ,gObjFBlue'+ foreground blue
  90. DIM gObjUser3;0 ,gObjElement;0,gObjResID;0,gObjBRed'+ STR# element,ResID,back red
  91. DIM gObjUser4&;0,gObjHndl&;0  ,gObjBGreen'objHndl,back green
  92. DIM gObjBlue'  background blue
  93. DIM END RECORD _objRecSz
  94. '-------------------------------------------------------------------------------
  95. :'MISC
  96. '-------------------------------------------------------------------------------
  97. DIM gResRef'res file ref num:FN replaceRes
  98. DIM gInBackground'true if switched out by MF
  99. '
  100. DIM gUndoable,gUndoHndl&'(Ed Fltr) globals for undo
  101. DIM gUndoStart,gUndoEnd'(Ed Fltr) sel range for undo
  102. '
  103. DIM gFileList&'handle to file list
  104. DIM 16 gOpenType$'types of fields that may be opened
  105. DIM gDirty'set if file needs to be saved
  106. DIM gKissOfDeath'if non-zero then exit
  107. DIM 32 gSaveName$'name of active document
  108. DIM gSaveVol'vol ref of active doc
  109. DIM gDblWnd'wnd # of dbl-clk'd list
  110. DIM gDblRef'btn # of dbl-clk'd list
  111. DIM gDblTime&'tks for dbl-clk'd list
  112. DIM gDblClick'true if list was dbl-clicked
  113. DIM gSilenceAudio'true if sounds disabled
  114. DIM gI3cursor'tracks cursor over 3D btns
  115. DIM gBigT,gBigL,gBigB,gBigR'generic big rectangle
  116. '-------------------------------------------------------------------------------
  117. DIM GLBLask&      ,GLBLautoMenu& ,GLBLbtnAction&
  118. DIM GLBLbuild&    ,GLBLcheckName&,GLBLclose&
  119. DIM GLBLcntrRes&  ,GLBLcountObj& ,GLBLcursor&
  120. DIM GLBLdrwCtrls& ,GLBLfield&    ,GLBLfindMenu&
  121. DIM GLBLfixEditor&,GLBLfixMenus& ,GLBLframeBtn&
  122. DIM GLBLgetGroup& ,GLBLgetIName& ,GLBLgetObj&
  123. DIM GLBLgetRef&   ,GLBLgetText&  ,GLBLgetWnd&
  124. DIM GLBLgetWTitle&,GLBLinitRntm& ,GLBLinsetWnd&
  125. DIM GLBLmouse&    ,GLBLopenDoc&  ,GLBLopenFile&
  126. DIM GLBLptInObj&  ,GLBLputObj&   ,GLBLputWnd&
  127. DIM GLBLrepRes&   ,GLBLrepXRes&  ,GLBLsetGroup&
  128. DIM GLBLsetGrow&  ,GLBLsetZoom&  ,GLBLshowErr&
  129. DIM GLBLtab&      ,GLBLupdate&   ,GLBLuseObjClr&
  130. DIM GLBLsaveAs&   ,GLBLcloseAll& ,GLBLblkNWhite&
  131. DIM GLBLpntDpth&